<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>202</cardCount>
<cardID>3514</cardID>
<listID>2453</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>------------------------------------------------------------------------- ---- Heavenly Hunks ---- by: Anonymous ---- 12/92 ---- ---- • Message handlers used in this script: ---- ClosePicture,CopyAFile,CopyAFolder,CopyMarked,CustomFind, ---- DecodeIt,DisplayMarkedCards, ---- DisplayTextFile,FileSumGoTo,GoNextSameWord, ---- Idle,MakeMenus,OpenCard,OpenStack,LaunchApplication,LaunchIt, ---- LaunchFileWithApp,PrettyBackground,PrintFileSummary, ---- RemoveBalloon,ShowAutoBalloon,ShowFileSum,SlideShow, ---- SuspendStack,TitlebarControl ---- ---- • Function handlers used in this script: ---- Be853Free ---- ---- • XCMDs used in this stack: ---- About,Barbutton,CopyFile,CopyFolder,Help ---- ---- • XFCNs used in this stack: ---- prettyTip ---- ---- • Fonts used in this stack: ---- Korina ---- ---- • Sounds used in this stack: ---- Click,Zoom,Wave1, Wave2,Wave3,OnScreen ---- -------------------------------------------------------------------------on openstackGlobal StartingUserLevel,TitleBarShowing,MarkedCount,FirstTime,PlaySound,bgChoice,GotABackgroundput "yes" into PlaySoundput "yes" into FirstTimeput "no" into TitleBarShowingput "Heavenly Hunks:Tools:Data:L" into bgChoiceput "no" into GotABackgroundput the userlevel into StartingUserLevelset the userlevel to 5put 0 into MarkedCounthide message boxhide titlebarshow menubarhide bg fld "AllFilesInSection"if the optionkey is not down thendelete menu "File"delete menu "Edit"delete menu "Go"delete menu "Tools"delete menu "Objects"delete menu "Font"delete menu "Style"end ifAbout "About the Browser"MakeMenusgo firstend openstackon closestackGlobal StartingUserLevelset the userlevel to StartingUserLevelshow titlebarshow menubarAboutreset menubarend closestackOn SuspendStackcloseStackend SuspendStack------------------------------------------------------------------------- Custom Menus -------------------------------------------------------------------------On Domenu whichglobal PPicture,CurrentWindowif which = "About HyperCard..." thenplay "Intro"repeat until the mouseclickif "Credits" is not in the windows thenPicture "Heavenly Hunks:Tools:Data:Credits", file, rect, false, 8set the rect of window "Credits" to "1,14,181,340"set the visible of window "Credits" to trueend ifend repeatclose window "Credits"hide window CurrentWindowshow window CurrentWindowput OldWindow into PPictureelsepass domenuend ifEnd DomenuOn MakeMenusGlobal TitleBarShowing, FileSummaryShowingif "File" is not in the menus thenCreate menu "File"put "Print File Summary" after menu "File"set the menumessage of menuitem "Print File Summary"of menu "File" to PrintListingset the cmdChar of menuitem "Print File Summary" of menu "FIle" to PPut "Quit" after menu "File"set the menumessage of menuitem "Quit" of menu "File" to QuitBrowserset the cmdChar of menuitem "Quit" of menu "FIle" to Qend ifCreate Menu "• Display"if TitlebarShowing = "yes" thenPut "Hide Titlebar" after menu "• Display"Set the menumessage of menuitem "Hide Titlebar" of menu "• Display" to TitlebarControlelsePut "Show Titlebar" after menu "• Display"Set the menumessage of menuitem "Show Titlebar" of menu "• Display" to TitlebarControlend ifPut "Choose Background..." after menu "• Display"Set the menumessage of menuitem "Choose Background..." of menu "• Display" to ChooseBGif the visible of bg fld "AllFilesInSection" = true thenPut "Hide File Summary" after menu "• Display"Set the menumessage of menuitem "Hide File Summary" of menu "• Display" to ShowFileSumelsePut "Show File Summary" after menu "• Display"Set the menumessage of menuitem "Show File Summary" of menu "• Display" to ShowFileSumend ifPut "__________________" after menu "• Display"Set the menumessage of menuitem "__________________" of menu "• Display" to TheBeepPut "View Marked Files..." after menu "• Display"Set the menumessage of menuitem "View Marked Files..." of menu "• Display" to DisplayMarkedCardsput "Copy Marked Files..." after menu "• Display"set the menumessage of menuitem "Copy Marked Files..." of menu "• Display" to CopyMarkedput "Unmark All Files" after menu "• Display"set the menumessage of menuitem "Unmark All Files" of menu "• Display" to UnMarkAllCardsEnd MakeMenusOn QuitBrowserdomenu "Quit HyperCard"end QuitBrowserOn TheBeepBeep 1End TheBeepOn TitlebarControlGlobal TitleBarShowingif TitlebarShowing = "yes" thenhide Titlebarput "no" into TitlebarShowingelseshow Titlebarput "yes" into TitlebarShowingend ifdelete menu "• Display"MakeMenusEnd TitlebarControlOn PrintListingif the last word of the id of this card = "2087" thenprint cd fld "TheFiles"elseprint bg fld "AllFilesInSection"end ifEnd PrintListing------------------------------------------------------------------------- Copying Various Files -------------------------------------------------------------------------On CopyAFileanswer "What type of file do you wish to copy?" with "8-bit PICT" or "24-bit TIF" or CancelIf the optionKey is down then -- Pig Latin --If it = "8-bit PICT" thenput line 1 of bg fld "PPath" into srcNameend ifIf it = "24-bit TIF" thenput line 1 of bg fld "TPath" into srcNameend ifIf it ≠ "Cancel" thenput empty into dstNameput srcName & " copy" into newNamerepeat with x = the number of chars in newName down to 1if char x of newName = ":" thenexit repeatend ifput char x of newName before dstNameend repeatput dstName into PLFIleNameput empty into dstNameput 0 into countput empty into FinalFileNamerepeat for number of words in PLFilenameadd 1 to countput "no" into donerepeat until done = "yes"put empty into FinalWordput word count of PLFileName into TempWordif the number of chars in TempWord = 1 thenput TempWord & "ay " after FinalWordput "yes" into doneelseput the first char of TempWord into TheChardelete the first char of TempWordput TempWord & TheChar & "ay " after Finalwordput "yes" into doneend ifput FinalWord after FinalFileNameend repeatend repeatput FinalFileName into newNamerepeat with x = the number of chars in newName down to 1if char x of newName = ":" thenexit repeatend ifput char x of newName before dstNameend repeatask File "Save as…" with dstNameIf it is empty thenexit CopyAFileend ifput it into dstNameset cursor to busyCopyFile srcName,dstNameend ifelse -- English --If it = "8-bit PICT" thenput line 1 of bg fld "PPath" into srcNameend ifIf it = "24-bit TIF" thenput line 1 of bg fld "TPath" into srcNameend ifIf it ≠ "Cancel" thenput empty into dstNameput srcName & " copy" into newNamerepeat with x = the number of chars in newName down to 1if char x of newName = ":" thenexit repeatend ifput char x of newName before dstNameend repeatask File "Save as…" with dstNameIf it is empty thenexit CopyAFileend ifput it into dstNameset cursor to busyCopyFile srcName,dstNameend ifend ifEnd CopyAFileOn CopyMarkedGlobal MarkedCount,FileMarkedForViewrepeat with i = 1 to MarkedCountput line i of FileMarkedForView into CardToCopygo CardToCopyCopyAFileend repeatEnd CopyMarkedOn CopyAFolderput first line of bg fld "Path" into SourceFolderput first word of bg fld "FileName" into FNameask File "Save as…" with FName & " Folder"If it is empty then exit to HyperCard else put it into destFolderRepeat with x = the number of chars in sourceFolder down to 1If char x of sourceFolder ≠ ":" then delete char x of sourceFolder else exit repeatend repeatPut "Copying " & Fname & " Folder" && "to --->" && destFolderCopyFolder sourceFolder,destFolderput the result into errorhide message boxEnd CopyAFolder------------------------------------------------------------------------- Marking Cards -------------------------------------------------------------------------On MarkCardGlobal FileMarkedForView,MarkedCountput the short Name of this card into tempIf temp is in FileMarkedForView thenrepeat with i = 1 to MarkedCountIf line i of FileMarkedForView = temp thendelete line i of FileMarkedForViewsubtract 1 from MarkedCountCheckIfAnyMarkedend ifEnd repeathide bg btn id 326elsePut temp & return after FileMarkedForViewadd 1 to MarkedCountshow bg btn id 326CheckIfAnyMarkedend ifEnd MarkCardOn DisplayMarkedCardsGlobal MarkedCount,FileMarkedForView,SoundTypeAnswer "Display the marked cards..." with "Quickly" or "Slowly" or "Cancel"If it = "Quickly" thenrepeat with i = 1 to MarkedCountput line i of FileMarkedForView into TheCardgo TheCardend repeatplay "Zoom"End ifIf it = "Slowly" thenrepeat with i = 1 to MarkedCountput line i of FileMarkedForView into TheCardgo TheCardwait 2 secondsend repeatplay "Zoom"End ifEnd DisplayMarkedCardsOn CheckIfAnyMarkedGlobal MarkedCount,FileMarkedForViewif MarkedCount = 0 thenset the enabled of menuitem "View Marked Files..." of menu "• Display" to falseset the enabled of menuitem "Copy Marked Files..." of menu "• Display" to falseset the enabled of menuitem "Unmark All Files" of menu "• Display" to falseelseset the enabled of menuitem "View Marked Files..." of menu "• Display" to Trueset the enabled of menuitem "Copy Marked Files..." of menu "• Display" to trueset the enabled of menuitem "Unmark All Files" of menu "• Display" to trueEnd ifPut the short name of this card into tempif temp is in FileMarkedForView thenShow bg btn "CheckMark"elsehide bg btn "CheckMark"end ifEnd CheckIfAnyMarkedOn UnMarkAllCardsGlobal MarkedCount,FileMarkedForViewPlay "Click"put 0 into MarkedCountput empty into FileMarkedForViewCheckIfAnyMarkedEnd UnMarkAllCards------------------------------------------------------------------------- File Summary Stuff -------------------------------------------------------------------------On ShowFileSumPlay "Zoom"If (The visible of fld AllFilesInSection) then -- Its therePlay "Click"Lock ScreenHide fld "AllFilesInSection"unlock screen with visual zoom closeelse -- It isn’tPlay "Click"Lock ScreenShow bg fld "AllFilesInSection"unlock screen with visual zoom Openend ifdelete menu "• Display"MakeMenusEnd ShowFileSumOn FileSumGoToPlay "Zoom"Lock ScreenIf word 2 of the ClickLine ≠ empty thenPlay "Click"put word 2 of the ClickLine into LineNumput line LineNum of bg fld "AllFilesInSection2" into TargetIDGo to card id TargetIDHide fld "AllFilesInSection"UnLock screen with Visual effect zoom outdelete menu "• Display"MakeMenuselseBeepend ifEnd FileSumGoToOn PrintFileSummaryPrint Fld "AllFilesInSection"End PrintFileSummary------------------------------------------------------------------------- Balloon Help Stuff -------------------------------------------------------------------------on ShowAutoBalloon helpMessageput Help("ShowBalloon", helpMessage, prettyTip()) into bg fld "helpResult"Be853Free helpMessage, prettyTip()end ShowAutoBalloonon Be853Free helpMessage, tiprepeat until "-853" is not in bg fld "helpResult"put Help("ShowBalloon", helpMessage, tip) into bg fld "helpResult"end repeatend Be853Freeon RemoveBalloonput Help("RemoveBalloon") into bg fld "helpResult"end RemoveBalloonfunction prettyTipput the rect of the target into targetRectput item 3 of targetRect & "," & item 4 of targetRect into tipsubtract 10 from item 1 of tipsubtract 10 from item 2 of tipreturn tipend prettyTip------------------------------------------------------------------------- Navigation -------------------------------------------------------------------------on GoNextSameWordif the selection is empty thenset the userlevel to 5set lockText of the target to falserepeat two timesclick at the clickLocend repeatput the selection into SelectedWordput the short name of this card into returnHereset the dontSearch of returnHere to truefind Whole SelectedWordset the dontSearch of returnHere to falseend ifset lockText of the target to trueSelect Emptyset the userlevel to 1set LockScreen to falseif the long name of this card = returnHere thenanswer "There are no other occurences of this word."Go returnHereend ifend GoNextSameWordOn SlideShowrepeat until the mouseclickif the sound is "done" thenplay "music"end ifshow bg btn "stopdisplay"put the id of this card into TheIDIf the id of this card ≠ "card id 4291" thenget rect of Background button "ScrollBar"BarButton -1,the number of cards in this bg,0,The number of this cardend ifwait 1 secondgo nextend repeatclick at 89,312hide bg btn "stopDisplay"End SlideShowOn CustomFindanswer "Search by what method?" with "Cancel" or"HyperCard" or "SmartSearch"play "click"if it = "HyperCard" then domenu "Find..."if it = "SmartSearch" then go to card id 2087End CustomFind------------------------------------------------------------------------- Barbutton stuff -------------------------------------------------------------------------On IdleIf the id of this bg = 2566 thenget rect of Background button "ScrollBar"BarButton -1,the number of cards in this bg,0,The number of this cardCheckIfAnyMarkedElsePass Idleend ifend IdleOn prettyBackgroundGlobal bgChoice,bgCode,Oldwindow,GotABackground--play "Click"If "bgChoices" is in the windows then close window "bgChoices"put the last char of bgChoice into bgCodeif bgCode ≠ "z" thenPicture bgChoice, file, rect, false, 8set the rect of window bgCode to "184,14,511,340"set the visible of window bgCode to trueput "yes" into GotABackgroundIf OldWindow is in the windows thenif the id of this card ≠ "card id 2087" thenset the visible of window OldWindow to trueend ifend ifend ifEnd prettyBackgroundOn chooseBGGlobal bgChoice,bgCode,PPicture,GotABackgroundif bgCode ≠ "z" thenclose window bgCodeend ifPicture "Heavenly Hunks:Tools:Data:bgChoices", file, rect, false, 32set the rect of window bgChoices to "90,30,420,305"set the visible of window bgChoices to trueput "yes" into GotABackgroundEnd chooseBGon PlayTheMusicglobal MusicNumif MusicNum = 5 thenput 0 into MusicNumend ifif the sound = "done" thenadd 1 to MusicNumput "Music" & MusicNum into MusicChoiceplay MusicChoiceend ifend PlayTheMusic</script>
